with Ada.Text_Io ; use Ada.Text_Io;
with Numerotation_Romaine; use Numerotation_Romaine;

package body Numerotation_Romaine_Io is
   --decl

   function Saisir return Nombre_Romain is
      S : Symbole_Romain;
      N : Nombre_Romain;
      Nb_Lu : Positive := 0;
      Char_Iter : Positive := 0;
      C : Character ;
   begin

      declare
      begin
         S := Symbole_Romain'Value(Character'Inmage(Get(C)));



      exception
         when Non_Chiffre =>
            Put_Line(Current_Error,"Ce n'est pas un chiffre romain!!");
      end;
   end Saisir;

   Procedure Affiche (N : Nombre_Romain) is
   begin
      null;
   end Affiche;




end Numerotation_Romaine_Io;
